## [1] "ESTU_DEPTO_RESIDE" "FAMI_ESTRATOVIVIENDA"
## [3] "FAMI_PERSONASHOGAR" "FAMI_EDUCACIONPADRE"
## [5] "FAMI_EDUCACIONMADRE" "FAMI_TIENEINTERNET"
## [7] "FAMI_TIENECOMPUTADOR" "FAMI_COMELECHEDERIVADOS"
## [9] "FAMI_COMECARNEPESCADOHUEVO" "FAMI_COMECEREALFRUTOSLEGUMBRE"
## [11] "ESTU_DEDICACIONINTERNET" "COLE_GENERO"
## [13] "COLE_NATURALEZA" "COLE_CALENDARIO"
## [15] "COLE_CARACTER" "COLE_JORNADA"
## [17] "PUNT_LECTURA_CRITICA" "PUNT_MATEMATICAS"
## [19] "PUNT_C_NATURALES" "PUNT_SOCIALES_CIUDADANAS"
## [21] "PUNT_INGLES" "PUNT_GLOBAL"
## [23] "ESTU_FECHANACIMIENTO" "ESTU_GENERO"
## [25] "ESTU_GENERACION-E"
BOGOTA_IMA1 <- ggplot(new_df) +
aes(x=FAMI_ESTRATOVIVIENDA, fill=ESTU_GENERO) +
geom_bar( color = 'black') +
labs(y="cantidad",x="Estrato",title="Estrato / Genero") +
theme(axis.text.y = element_blank(), axis.ticks = element_blank() )
ggplotly(BOGOTA_IMA1)
BOGOTA_IMA1 <- ggplot(new_df) +
aes(x=ESTU_GENERO, fill=FAMI_ESTRATOVIVIENDA) +
geom_bar( color = 'black') +
labs(y="cantidad",x="Estrato",title="Estrato / Genero") +
theme(axis.text.y = element_blank(), axis.ticks = element_blank() )
ggplotly(BOGOTA_IMA1)
BOGOTA_IMA1 <- ggplot(temp) +
aes(Estrato, frec_porcent) +
geom_bar(stat = "identity", fill = c("white", "green", "white","white", "green", "white"),
color = "grey") +
labs(x = "\nEstudiantes por estrato", y = "", title = "Presencia de estudiantes") +
annotate("text", x = 1:6, y = table_frec$frec_porcent + 0.9, label = paste(temp$frec_porcent,"%"))+
theme(axis.text.y = element_blank(), axis.ticks = element_blank())
ggplotly(BOGOTA_IMA1)
BOGOTA_IMA2 <- ggplot(new_df2) +
aes(x=FAMI_ESTRATOVIVIENDA, fill=COLE_GENERO) +
geom_bar( color = 'black') +
labs(y="cantidad",x="Estrato",title="Estrato / Tipo de colegio") +
theme(axis.text.y = element_blank(), axis.ticks = element_blank() )
ggplotly(BOGOTA_IMA2)
BOGOTA_IMA2 <- ggplot(new_df2) +
aes(x=COLE_GENERO, fill=FAMI_ESTRATOVIVIENDA) +
geom_bar( color = 'black') +
labs(y="cantidad",x="Estrato",title="Estrato / Tipo de colegio") +
theme(axis.text.y = element_blank(), axis.ticks = element_blank() )
ggplotly(BOGOTA_IMA2)
BOGOTA_IMA2 <- ggplot(temp) +
aes(Tipo_Cole, frec_porcent) +
geom_bar(stat = "identity", fill = c("blue", "green", "white"),
color = "grey") +
labs(x = "\nEstudiantes por Tipo de colegio", y = "", title = "Porcentaje de estudiantes Tipo de colegio") +
annotate("text", x = 1:3, y = table_frec$frec_porcent + 0.9, label = paste(temp$frec_porcent,"%"))+
theme(axis.text.y = element_blank(), axis.ticks = element_blank())
ggplotly(BOGOTA_IMA2)

